Sequence
Sequence
;
Assign
Identifier i
Integer 1 
While
LessEqual
Multiply
Identifier i
Identifier i
Integer 100 
Sequence
Sequence
;
Sequence
Sequence
Sequence
;
Prts
String "door "
;
Prti
Multiply
Identifier i
Identifier i
;
Prts
String " is open\n"
;
Assign
Identifier i
Add
Identifier i
Integer 1 
